home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #12 / Amiga Plus CD - 2002 - No. 12.iso / Tools / Freeware / PerfectPaint / rexx / Anim / ClonePicture.rx < prev    next >
Encoding:
Text File  |  2001-06-13  |  889 b   |  68 lines
  1. /*     arexx Script 
  2. */
  3.  
  4.     options results
  5.     parse ARG Port b
  6.     
  7.     ADDRESS value Port
  8.  
  9.     pp_GetDepth
  10.     D=result
  11.     pp_GetWidth
  12.     W=result
  13.     pp_GetHeight
  14.     H=result
  15.  
  16.     pp_GetCurrentBuffer
  17.     CBf=result
  18.  
  19.     if D<24 then DO
  20.         pp_Psave "ram:palette.trash" 0
  21.     END
  22.  
  23.     pp_FindEmptyBuffer
  24.     flag=result
  25.     if flag=-1 then DO
  26.         pp_Warn "can't*find*empty|Buffer."
  27.         EXIT        
  28.     END
  29.  
  30.     pp_SetBuffer flag
  31.     pp_GetWidth
  32.     if result~=0 then DO
  33.         pp_Request "This*Buffer*is*not*empty.|Do*you*want*to*erase*it*?"
  34.         if result=0 then DO
  35.             EXIT
  36.         END
  37.         ELSE DO
  38.             pp_ClearCurrentBuffer            
  39.         END
  40.     END    
  41.  
  42.     pp_new W H D
  43.     pp_GetWidth
  44.     IF result=0 then DO
  45.         pp_Warn "Not*enough*memory."
  46.         EXIT            
  47.     END
  48.  
  49.     IF D<24 then DO
  50.         pp_Pload "ram:palette.trash"
  51.         ADDRESS COMMAND
  52.         'delete >nil: ram:palette.trash'
  53.         ADDRESS value Port
  54.     END
  55.  
  56.     pp_progresstext 'Cloning...'
  57.     pp_CopyFrame CBf
  58.     pp_CopyStencil CBf    
  59.     pp_Refresh
  60.     pp_ProgressClr
  61.     
  62.     EXIT
  63.     
  64.  
  65.  
  66.     
  67.  
  68.